home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / instruct.exe / instruct.DXR / 00006.ls < prev    next >
Encoding:
Text File  |  1995-05-03  |  693 b   |  25 lines
  1. on exitFrame
  2.   global gdirmovie, gVolume, gsliderbar
  3.   puppetSprite(2, 1)
  4.   puppetSprite(5, 1)
  5.   puppetSprite(6, 1)
  6.   puppetSprite(7, 1)
  7.   puppetSprite(8, 1)
  8.   puppetSprite(9, 1)
  9.   puppetSprite(10, 1)
  10.   puppetSprite(4, 1)
  11.   set the constraint of sprite 4 to 3
  12.   if gsliderbar = 1 then
  13.     set the castNum of sprite 5 to 18
  14.     set the castNum of sprite 6 to 9
  15.     set the castNum of sprite 7 to 20
  16.   else
  17.     set the castNum of sprite 5 to 8
  18.     set the castNum of sprite 6 to 19
  19.     set the castNum of sprite 7 to 10
  20.   end if
  21.   set lFred to (gVolume * the height of sprite 3 / 255) - the bottom of sprite 3
  22.   set the locV of sprite 4 to abs(lFred)
  23.   set the volume of sprite 8 to gVolume
  24. end
  25.